home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
PASSRC.ZIP
/
LOOPIF.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-02-04
|
1KB
|
37 lines
(* Chapter 4 - Program 3 *)
program Loops_And_Ifs;
var Count,Index : integer;
begin (* Main program *)
for Count := 1 to 10 do begin (* Main loop *)
if Count < 6 then
Writeln('The loop counter is up to ',Count:4);
if Count = 8 then begin
for Index := 8 to 12 do begin (* Internal loop *)
Write('The internal loop index is ',Index:4);
Write(' and the main count is ',Count:4);
Writeln;
end; (* Internal loop *)
end; (* if Count = 8 condition *)
end; (* Main loop *)
end. (* Main program *)
{ Result of execution
The loop counter is up to 1
The loop counter is up to 2
The loop counter is up to 3
The loop counter is up to 4
The loop counter is up to 5
The internal loop index is 8 and the main count is 8
The internal loop index is 9 and the main count is 8
The internal loop index is 10 and the main count is 8
The internal loop index is 11 and the main count is 8
The internal loop index is 12 and the main count is 8
}